BIENVENIDOS A msxclub 

UN SOFTWARE DE ALTA CALIDAD PARA MSX 




Editorial 



CINCUENTA Y UN MESES CONTIGO 



Y aquí estamos. Después de las tradicionales fiestas de semana santa 
hemos vuelto del rocío de Sevilla y algunos de las fallas de Valencia. Y que 
lejos quedan ya esos días de descanso. Pero aquí estamos de nuevo para 
seguir entregándonos en cuerpo y alma para cubrir la información sobre el 
sistema. 

Para empezar te ofrecemos en este número un comentario especial sobre 
Aleste, un Megajuego que hará las delicias de los apasionados por los 
cartuchos japoneses. 

En la sección de software disponemos, este mes, de lo mejor del mercado; 
Out run, Wec Le Mans, Rambo III... Acabamos con una sorpresa muy 
especial que os tenemos reservada desde hace un tiempo. Se trata de nuestra 
cassette-ensamblador que, muy pronto, estará a la venta. Muchos recorda- 
réis que llevábamos anunciando este programa en sucesivos números. Pues 
atención: se trata de un ensamblador muy especial que superará con creces 
todo lo conocido hasta ahora, abriéndose un hueco entre los programas de 
esta índole que ya han desaparecido del mercado. Es más, para apoyar 
nuestra cassette hemos preparado un curso de ensamblador -basado en 
nuestro programa- cuyo autor nos introduce, en este mismo número, en el 
apasionante mundo del código máquina. Esperamos que os agrade la 
sección. 

Y como siempre más sorpresas, pero todo llegará... 

MANHATTAN TRANSFER, S.A. 
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\ DEL HARD AL SOFT 



mentando resolver al ir 



! TABLON DE 
ANUNCIOS 

Dos inserciones gratuitas para to- 
js nuestros lectores con que podéis 
tercambiar, comprar o vender hard y 
»ft original. Este mes incluímos una 
irma distinta de anunciarse en nuestra 
vista, muy económica por otra parte. 



•V,'*. f .¿¿5 



4 off-road y Herí 



1, Crazy road, Gato y 



| ENSAMBLADOR 



(TRUCOS Y POKES 
Una ensalada de trucos y pokes 
para los gourmets de los videojue- 
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CONCURSO $e 
DE ARTICULOS 
PERIODISTICOS 



iERTAR 

TICULO 
CUESTIONARIO 



TITULO DEL ARTICULO 



TEMATICA 

AUTOR (NOMBRE Y 
DOS APELLIDOS) 



D.N.I 

CALLE 

N° POBLACION . 

PROVINCIA 

BREVE RESUMEN 



. EDAD... 



Remitir a: 

CONCURSO DE ARTICULOS PERIODISTICOS 
Roca i Batlle, 10-12, bajos. 08023 Barcelona 



BASES 



Todos los artículos deberán llevar 



ima de c 



No°eristtfecha 



lección prei 
los a public; 



PREMIOS 

8. En fecha a determinar, los lectores 
de la revista podrán votar al que 
consideren el mejor artículo del 
año. Las votaciones entrarán en un 
sorteo de diversos premios. 

9. Manhattan Transfer premiará en 
metálico al artículo ganador del 
concurso -el más votado por los 

FALLO Y 
JURADO 

10. El consejo asesor de la editorial 
Manhattan Transfer hará una se- 
lección previa de los artículos a 
publicar, mientras que el artículo 
eanador queda en función de los 
ds de los lectores. Ambos fallos 




| DEL HARIj... 




BRAINSTORM Por Willy Miragall. 



LA MEMORIA, 
NUESTRO MAS 
CARO RECURSO 



Los ordenadores MSX son ei 
tremadamente propensos 
mostrarnos mensajes de fin de 
memoria, pese a que no les 
falta. En esta ocasión veremos 
cómo "rompernos el coco" pa 
r al máximo 1 




Programa^ 



Por M a Palmira Perdiz , 



ADIVINA 
UN NUMERO 



ADIVINA UN NUMERO 



PALMIRA PERDIZ C ABANELAS 



120 CLS ¡KEYOFF : SCREEN2 : COLORIS ,"1 , í 

:OPEN"GRP: "AS#1 

130 LINE(64,72)-(208,72) ,4 

140 LINE(64,104)-(208.104) .4 

150 LINE(64.72)-(64, 104) ,4 

160 LINE(208,72)-(208.104) .4 

170 PSET ( 72 , 84 ) : PRINT#1 , " ADTVTNA ' 

N. NUMERO" 

180 PSET ( 73 , 84) : PRINT#1 , "ADIVINA l 
N NUMERO" 

.90 COLOR2:PSET(120,152) :PRINT#1.' 



Puls¡ 



cid 



200 A$-INKEY$ : IFA$ = " ' ' THENG OTO 200 
210 ' Instrucciones 
220 CLS : SCREENO 

230 L.OCATEÍ0 , 1 .- PRINT" ADIVINA UN NU 
MERO" 

240 LOCATE1 0,2: PRINT" 



250 LOCATE 3 , 5 : PRINT"Esto e 



I JU 



En este pequeño programa de 
entretenimiento el ordenador se- 
lecciona un número al azar para 
>r el jug 



dadas por mensajes de "más 
alto" o "más bajo", dependiendo 
del número apuntado. ¿En cuan- 
tas tiradas lograrás localizar el 
número oculto? 



1 r- 3 

ego que consiste en 

260 LOCATE3.7:PRINT"adivinár un nu 
mero, comprendido " 

270 LOCATE3 , 9 : PRINT"ent re 1 y 100. 

280 LOCATE3 , 1 1 ?PRINT"meta un error 

290 LOCATE3°Í3?PRINT"ra un consejo 
: MAS ALTO o MAS BAJO" 
300 LOCATE3 , 15 : PRINT"segun conveng 
a. Cuando se acierta " 
310 L0CATE3.17:PRINT"el MSX nos 
ra cuanto hemos tar-" 
320 L0CATE3,19:PRINT"dcdo en ac< 
arlo. SUERTE 11!" 
330 LOCATE10,22:PRINT"Pulsa una 
cía " 

340 A$-INKEY$:IFA$-""THEN340 
350 1-0 

360 CLS : COLORI 5 
170 NU-INT(RND(6)*100) 
380 IFKU>100THENNU-100 
390 INPUT"Numero ";N:I-I+1 
400 IFN< 1THENPRINT : PRINT" COMPRENDI 
DO ENTRE 1 Y 100 ": PRINT ; GOTO390 
410 IFN>1 OOTHENPRINT : PRINT" COMPREN 
DIDO ENTRE 1 Y 100" : PRINT : GOTO390 
420 IFN<NU THENPRINT : PRINT"MAS ALT 
O" : PRINT : 'GOTO390 
430 IFN>NUTHENPRINT : PRINT"MAS BAJO 
": PRINT :GOTO390 
440 IFN-NUTHENPRINT ¡ PRINT "HAS ACER 
TADO DESPUES DE";I;" INTENTOS" 
450 PRINT : PRINT : INPUT'OTRA PARTIDA 



(S/N) ' 



P$ 



460 IFP$< >"S"THEN480 
470 IFP$-"S"THENGOTO350 
480 ÉND 




Programa^ 



B Por Juan Antonio Solís Ibáñez. 



EL GATO Y 
EL RATON 



En este pequeño programa 
de entretenimiento pueden 
participar dos jugadores simul- 
táneamente. El jugador uno 
-gato- debe capturar al juga- 
dor dos -ratón- en el menor 
tiempo posible. Cuando se ha 
logrado este objetivo, en una 

papeles. El que haya invertido 
menos tiempo en la captura es 
el ganador. 



10 1 

20 ' * 
30 SCREEN 
40 ' DEFII 
50 FOR V-t 
60 IF V-B? 
70 READ I 
80 DATA 8 
.63.127.2" 


J.A SOT.IS - ZARAGOZA 

EL GATO Y EL RATON * 4 
1 ,2:COLDR 5,15,5:KEY0FF 9 
IICTON DE SPRITES 4 
ASE(9) TO BASE{9)+55 1 
3E(9)+40 THEN V=V+8 1 
:VPOKE. V.D:NEXT 7 
31.51.115.127.55,27,8,15 G 
9,239,239,239,239,16.248 1 


204. 206,254, 236, 21 6. 1 6 . 240 , 252 , 25 

.247,247,247,247.247 

0 DATA 3,7,12,29,63.127.255,255,2 

8 . 252 . 254 . 255 . 755 . 25^ . . 252 

00 1 PRESENTA C T ON E INSTRUCCIONES 

1 0 PLAVVl OLI 0GEGEt.4GL8KI.5nT.qCPl 5 
1 0 AFAFL4AL8BL.25GGL10FEFL7GR2 IGR21 
R4I..1 0GAGAL4GL8EL5DL9G" 

20 LOCATE 5,6 : PRINT"JUAN ANTONIO 


wm w** 

mS ka sí ¿3 


MM 



30LIS" 

130 LOCATE Í0,9:PRINT"PRESENTA" 
140 LOCATE 5.12:PRINT"EL GATO Y EL 
RATON" 

150" EOR T-0 TO 1 700 : NEXT : OIS 
160 COLOR 8.15,8:PRINT:PRINT:PRINT 
"Inténta escapar de las garrasdel 
gato, aguantando el mayor tiempo pó 
sible Lo?; 2 jugado- res se irán al 
temando. una ves con el gato y o 
tra con elraton, ganando el que ma 
s tiempo aguante con este vivo. 

170 PRTNT : PRINT"E1 ratón puede met 

erse en el agujero de la parte sup 

erior izquierda." 

3 80 IF PLAY(0) THEN' 180 

190 LOCATE 1,20:PRTNT"PUL?A [SPACE 

] PARA EMPEZAR" 

200 0$-TNKEY$:IF 0$<>" " THEN 200 
210 ' COMIENZO 

220 RU-1 : GA$- "GATO" : RA$- "RATON" : A" 

0:B-l:C-2;D-2 

230 X=20:Y=18:M-215:N-176 

240 C1.5 : BEEP : TIME- 0 : COLOR 3,1.1 

250 VPOKE 6208. 8: VPOKE 6209.8:VPOK 

E 6240 , 8 : VPOKE 6241.8 

260 LOCATE 0.0: PRINT".T . 1 : "GA$" * J 

.2:"RA$" T-'TKRU) 

270 TT(RU)-TNT (TIME/50) 

280 PUT SPRITE 1 , (X.Y) . 10, 1 

290 PUT SPRITE 0,(M,N),8,0 

300 G-STICK(A) OR STICK(B) :R=STICK 

(Cl OR STICK(D) 

310 TF R-l THEN X-X:Y=Y-12 

320 IF G-l THEN M^M:N=N-12 

330 IF R-2 THEN X-X+l 2 : Y-Y-12 

340 TF G-? THEN M-M+l 2 : N-N-12 

350 IF R=3 THEN X-X+12:Y-Y 

360 IF 8-3 THEN M=M+12:N=N 

370 IF R-4 THEN X-X+12 : Y-Y+12 

380 IF 0=4 THEN M-M+l 2 : N-N+l 2 

390 IF R-5 THEN X-X:Y-Y+12 



Test de listados ■ 



430 IF R-7 THEN X-X-12 :Y-Y 

440 IF G-7 THEN M-M-12.-N-N 

450 IF R-8 THEN X-X-12 : Y-Y-12 

460 TF O-R THEN M-M-1. 2 : N-N-l 2 

470 TF M''l THEN M-l 

480 TF M>238 THEN M-238 

490 TF N'15 THEN N-15 

500 TF NM75 THEN N-175 

510 TF X<-.1 AND Y-.-18 THEN X-255:^ 

520 TF X<1 THEN X-l 
530 IF X>238 THEN X-238 
540 TF Y<18 THEN Y- 18 
550 IF Y>183 THEN Y-183 
560 ON SPPTTF fiOSUR 580 : SPRTTF ON 
5TJ GOTO 26 0 
"5B0 fPRTTF. OFP-PTAY"37H2400L5O5CO4 
BA#A" 



600 LOCATE 0.4: PRTNT" i NO HA DEJADO 

NT LOS HUESOS ! " 
610 LOCATE 0,8:PRTNT"TIEMPO EMPLEA 
DO ■ "TT ! RU ; " SEGUNDOS" 
620 SWAP GA$,RA$:A-2:B-2:C-0:P-1 
630 FOR T-0 TO 21 50: NEXT 
640 TF Pl.i-l THEN LOCATE 0,16:PRINT 
"» C''iVlTFMZA LA SEGUNDA PARTE *":Pf 
p T-0 TO 1300: NEXT : RU-2 : GOTO 230 
'■50 ' •'OMPARA TIEMPOS Y FTNALTZA 
660 CLS:TF TI(l)>TT(2) THEN LOCATE 

6.8- PRTNT"GANADOP tugado» . ! " 
670 TF TT (IX TI (21 THEN LOCATE 6.1 
■ PPTNT"GANADOR JUGADOR 1" 
680 TF TT(1)-TT(2) THEN LOCATE 4,' 
■ P T5 TNT"HABET? QUEDADO EMPATE" : PRTN 
T ■ PRTNT : PRTNT" PREPARADOS PARA I 
RFBANCHA " : FOR T-0 TO 2000 : NEXT • GOT 



O 220 



} T-0 TO 2000 : NEXT : GOTO 150 



-217 220 
-101 230 
- 58 240 
-121 250 



- 11 290 - 
-173 300 - 

- 53 310 - 

- 74 320 - 

- 41 330 - 

- 88 340 - 

- 58 350 
-139 360 
-159 370 

- 37 380 
-236 390 

- 55 400 

- 89 410 
-105 420 





81 430 - 

113 440 - 

63 450 - 

8 460' - 



- 77 510 -156 

- 22 520 - 24 

- 66 530 -236 

- U 540 

- 80 550 



•128 690 -198 



25 M ° -"' W " 
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A T T7 CHTIh TOKYO está siendo invadi- 
rá 1 . |\. 1 1 |\ do por extraños seres plantí- 
M -*~ l *~-' y ^ *• „ ra í os . AKEMI, con ayuda de 

LA VFNGAN7A ErtfKBttrss 

M-JJLX. TLll VJ JTX 1 y áLll\ depende de su valor y destreza. 
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El lenguaje máquina y el ensamblador, son las herramientas que nos permiten sacarle todo el partido a 
los MSX. Esta es la mejor oponunidad que nunca tendrás para engancharte al mundo del código 

Hemos desarrollado el ENSAMBLADOR R.S.C., un programa que va a poner los pelos de punta a 
los usuarios más expertos. 
En exclusiva para nuestros lectores 
Manhattan Transfer presenta el 
ENSAMBLADOR R.S.C. 

* El primer ensamblador/desensamblador 100% compatible con todos los MSX, sean de primera o de 
segunda generación. 

* El primer ensamblador/desensamblador que es compatible con cualquier MSX. Tenga cinta o disco. 

* El primer ensamblador/desensamblador que permite cargar o grabar programas tanto en cinta como 
en disco. 

* El prirr 1er ensamblador/desensamblador que permite grabar programas tanto en cinta como en disco. 

* El primer ensamblador/desensamblador que se ofrece tanto en versión cinta como en versión disco, 
para obtener la carga más rápida. 

* Y el ensamblador R.S.C. es, además, el mejor ensamblador concebido jamás para una máquina de 8 
bits. 

* Soporta macros, y permite hasta 15 niveles de anidación. 

* Las macros pueden ser parametrizadas. 

* Permite la definición de grandes estructuras en memoria con una sola instrucción. 

* Permite el manejo de strings. 

* Y además incorpora toda una serie de ayudas al diseño de programas como son los volcados de 
memoria o de etiquetas, manejo del disco y de directorios. 

* Y TODO ESTO EN CASTELLANO. Porque el mejor ensamblador/desensamblador es "Made in 

... Y POR SOLO Ptas. 2.500- en cinta ó Ptas. 3.000- en disco 
No te pierdas la sensacional oferta de lanzamiento 




5ERVA DEL ENSAMBLADOR R.S.C. 





IMPORTANTE: Indicar en el sobre OFERTA ENSAMBLADOR 
Manhattan Transfer, S.A. 



Roca i Batllc, 10-12 Bajos 
08023 Barcelona 



\ Programa ■ 



■Por Cándido Pérez Angulow 



Este programa educativo in- 
tenta, bajo un sistema de pre- 



CULTURA GENERAL 



de cerca a un dominio del mun- 
do que nos rodea. Siguiendo con 
la tónica creada por el popular 
TRIVIAL ahora comprobare- 
mos nuestra preparación en for- 
ma de juego. 



CULTURA GENERAL 



Cándido Pérez Angulo 



1988 Granada 



.120 ' 

130 ' VARIABLES : P$(A) y R$(A) para 
pregunta y respuesta respectivame 
nte, donde A es variable aleatoria 
con el nQ de respuestas posibles. 
140 'I es el contador de nQ de pre 
guntas que voy preguntando 
150 'P e,s el ne de respuestas corr 

160 ' 

170 ' - INSTRUCCIONES - 

180 ' 

1-90 WIDTH40 

200 CLS : KEYOFF : L0CATE4 . 5 : PRINT"PRO 
GRAMA DE PREGUNTAS Y RESPUESTAS" 
210 L0CATE4,6:PRINT"WWWWVWÍWWWWWWW 

220 LOCATE13,8:PRINT"BASADO EN " 
230 LOCATE13,9:PRINT"WWWWWWWWW" 
240 LOCATElO.lliPRINT-CULTURA GENE 
RAL" 

250 LOCATE10,12:PRINT"VÍWWWWWWWWWV?W 

260 L0CATE3, 15 : PRINT"Real izado por 



280 LOCATE0.20:PRINT"Pulsa una tec 
la para seguir ■" 
290 D$-INKEY$ 

300 IF D$="" THEN GOTO 290 
310 CLS 
320 ' 

330 ' INSTRUCCIONES 2 
340 ' 

350 LOCATE 1 1,1: PRINT" INSTRUCCIONES 
360 LOCATE 1 1 . 2 rPRI-NT " W WWWWWWWWWWW W 

- Las preguntí 

pgidas [" ' 
or lo que se repetirán algunas " 
80 L0CATE0,9:PRTNT"- -Responfle sie 
pre en letra mayúscula , sino haces 
esto la pregunta sera errónea." 
90 LOCATE0 .12: PRINT"- Da la respu 
sta exacta . c-;i n ningún adorno gram 




400 I F ( PFEK ( &HF A FC ) AND6 ) - 0THEN4 1 0 E 
],SELOCATE0,15:PRINT"- Puedes elegí 
r entre el modo de 40 u 80 columna 
s en pantal la. " 

410 LOCATE0.20:PRINT"Pul:-::a una teo 
la para seguir ■" 
420 D$=TNKEY$ 

430 IF D$-"" THEN GOTO 420 
440 CLS 

450 LOCATE11 . 1 :PRTNT"INSTRUCOIONES 

LOCATE! 1.2: PRTNT M WWWWWWWWWWWWW 

TOOATE0 . 4 • PRTNT"- Cuando contf 
s una pregunta, la puntuación 

ena o mala. y tu calificación sa 
3 al finalizar de todas las pre 

T.OCATE0.9:PRTNT"- Tu puntuacio 



i I OCATE0 .13: PRINT"- Habrá pregu 
is variadas' de geografía, ciencia 
stor ja, música .. . piensa y acert 

500 LOCATE0,17:PRTNT"-El modo ha e 
icoger de texto en 80 columnas es 
¡olo valido para MSX-2" 
¡10 ' 

120 ' OPCIONES PARA COMENZAR 

540 I.OCATE0 . 20 : IF (PEEK (&HFAFC) AND6 
)-0THEN550ELSEPRINT"Si quiere camb 
¿ar de modo de texto en pantalla p 
lisa 8(0) o 4(0) para cambiar dé c 



tecla para emp 

560 IFfNKEY$-""THEN560ELSE630 
570 D$-INKEY$ 

580 IF D$-"8" THEN WIDTH80: GOTO ( 

30 

590 IF D$-"4" THEN WIDTH40ELSE570 

600 ' 

610 ' - COMIENZO DEL PROGRAMA - 

620 ' 

630 P-0:DIM P$ ( 51 ) . R$ ( 51 ) : FORI-0TO 
5 1 : READA$ , B$ : P$ ( I ) -A$ : R$ ( I ) -B$ : NEX 
T:I-1 

640 CLS:FORN-0TO100:A-INT(RND(-TIM 
E)*52) :NEXT:PRINTP$(A) ; : INPUTRF$ : I 
FRF$-R$ ( A) THENPRI NT "CORRECTO" :P-^ 

1ELSEPRINT"MUY MAL" : PR'INT"La reap. 
esta correcta es:";R$(A) 
650 FORN=0TO1000:NF.XT 
660 IFI<'=52THENT--T^1 : GOTO 640 
670 CL3:PRINT"Has acertado ";P ; " [ 



egunt 
¡80 PRINT-Tu 



slifici 



ion 



; (P*10) 



700 • OPCIONES «•THRI.F" 



DATAS DE PREGUNTAS Y RESPUES 



rA^>:< CS32 CS32 





790 DATA ¿Cuando comenzó la Revolu 
i Francesa. 1787, ¿Quien formulo 
eoria de la relat i vidad, EINSTE 
IN, ¿Quien invento la Prensa Hidrau 
i, PASCAL. ¿Quien es el físico te 
•o mas importante actualmente, H 
AWKING 

800 PATA ¿Cual es la capital de Ja 
pon, TOKYO, ¿Cual es el monte mas al 
to d«) mundo . EVEPRST. ¿De donde era 
J . S . Bach, ALEMANIA, ¿Cual es la cap 
ital de 1 iechtenstein. VADUZ 
810 DATA ¿Cual es 1, 
bania, TIRANA. ¿Que el 
Ber 1 ioz. MUSICO, ¿Que 

■cribe obras crent i f i cas , ASIMOV 
lanrk' comenzó la 28 G3 mundial. 



tor fainos 



ilfrai 



p. VIA 





ogic- 



,J. CIERVA, ¿En qu« 
.rder.adoi 



se ha 



.GEBRA DE 



BOOT..E, ¿Quien fue el inventor' del 
telefono, BELL 

830 DATA ¿Quien clasifico los anim 
LINNEO, ¿Quien descubrió las 1 
eyes de la genética actual .MENDET,, 
¿Cuando comenzó la GS Civil espafio 
la , 1936 . ¿Quien descubrió la penici 
1 i na, FLEMING, ¿Quien invento la imp 
rent a , GUTFNBFRG 

840 DATA ¿En que bolsa se produjo 
la crisis mundial de 1929, WALT. STR 
EET. ¿Que" estilo literario creo Gon 
goro , CULTERANISMO, ¿Qu i en i nvento 
1 barometro.TORRTCELLI 
850 DATA ¿Quien invento la pila,\ 
LTA,¿Que persona dio la primera \ 
elta al mundo y demostró su redond 
es, MAGALLANES 
860 DATA ¿De que estilo arquitecto 
nico esta hecha la Catedral de San 
tiago De Composte la, ROMANICO. ¿Que 
pintor espafíol fue el pintor ofici 



lil ja real de Carlos IV 

¿Que país es el mas ric 
JAPON. ¿Quien descubrir 
> infinitesimal .NEWTON, ¿ 
)to el telégrafo, MORSE 

¿Que biólogo creo la mi 
i,PASTEUR,¿Cual es la ca 
liza, BERNA. ¿Cual es 1 a r 
íumania,BUCAREST,¿Que er 




inercia y propagac: 
ondas, LEONARDO DA VINCI , 



• Fram 



» y d< 



•Que 



el 



formando 

an estuario, SENA 
900 DATA ¿En que tabla quimit 
a el paladio.VIIIA, ¿Quien des 
o los rayos láser, MAIMAN, ¿A que gr 
an familia de animales pertet 
los insectos,, ARTROPODOS, ¿Dent 

que .estilo musical estuvo Mozart , 
CLASICISMO 

910 DATA ¿Como se llama el fenomer 
o por el cual las plantas poseedoi 
as de clorofila captan energia.FOT 
OSINTESIS, ¿Quien fue el descubrido 
r de las ondas electromagnéticas p 
or lo que es posible la 
on sin hí los , HERTZ 
920 DATA ¿Quien expuso ] 
eliocentrica sobre el universo. COP 
ERNIC0,¿En que sierra nace el » 
Duero. URBION, ¿Cual es la capite 
e Nueva Ze 1 anda , WELLINTONG , ¿A c 
sierra conduce la carretera mae 
ta de europa, SIERRA NEVADA 
930 DATA ¿Quien fue el fundador de 

la religión protestante , I.UTERO, ¿Q 
ue explorador descubrió el rio Ama 
zonas y siguió su curso hasta su d 
esembocadura,ORELLANA,¿Cual es la 
capital de Canadá , OTTAWA 
940 DATA ¿A que organizacipn da lu 
gar el tratado del^atlantico norte 

OTAN, Según los últimos avances re 
al izados, ¿es verdadera la Sábana 5 
anta" NO 
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-159 580 - 



- 58 850 -24" 
-111 860 -236 



310 -159 450 - 40 590 - 48 730 - 67 870 - 



50 - 58 190 -215 

60 - 58 200 - 11 

70 - 58 210 -239 

80 - 58 220 -133 

90 - 58 230 - 97 



■ 58 760 - 58 900 - 35 

-160 770 - 58 910 -101 

- 92 780 - 58 920 -110 

-109 79o -145 930 - 77 

■•167 800 -195 940 -252 



140-58 280-167 420-67 



670 -240 

"145 g 2 0 - 
" 58 8 30 - 



540 - 55 
550 -158 

560-37 7Q0-, 8 84Q-, 



Programa ■ 



B Por Daniel Colomer Travé » 



CRAZY 
ROAD 



En este adictivo juego habre- 
mos de completar un circuito del 
campeonato de fórmula uno te- 
niendo presente dos cuestiones: 
controlar el fuel y controlar la 
velocidad. Esto último revierte 
en la cantidad de coches puestos 
en pista. Habremos de esquivar 
tantos vehículos como podamos. 



Por 

CRAZY-ROAD ' Dan i 

PARA MSX-CLUB ' Coló 

4-1-89 ' Trav 

INICIAI.IZACION 



SURRUTINAS DE MOVIMIENTOS 



460 1 
470 ' 

freno-movl 
490 IF V->50 AND P->10 THEN V-V-40 

" "1:GOSUB700:INTERVALOFF ELSE 
RETURN ' fuel y velo. 
500 P-P-2:W-W-2:J-J- 
510 RETURN 
520 ' derecha-mov3 
530 X-X+5:V-V+3:F 
340 ' 

550 X-X-5:V-V+3 

560 1 
570 ' 



3 X-92:Y-115 
3 T-78:P-30 
3 Q«96:W-80 
1 K-109.-J-165 
D 1,-0 :R-0 

1 XX-INT(RND(-TIME) ) 
1 ON INTERVAL-400 GOSUB 700'quit 
f. y velocidad 
3 ON SPRITE GOSUB 1660 



10 GOSUB 4450 ' LECTURA DE SPRITES 

10 GOSUB 3510 'PRESENTACION 

• 0 GOSUB 730 ' MARCADOR 

i0 GOSUB 2920 ' CUENTA - 

'0 PLAY"V15L16S8M2000DFGDFGAAC" 

!Gl-0TO2000:NEXT 

i0 GOTO 1050 ' BUCLE PRINCIPAL 



610 ' MARCADOR 



640 1 



650 ' 

' lineas que borran 
i 1 borra las vidas 
680 LINE(199, 25)-(252.45) ,1.BF 
690 ' borra el fuel 
700 IF F->10 THEN F-F-10 : LINE ( 1S 
99)-(252. 110) , 1,BF 
710 borra la velocidad 
720 IF V>0 AND V<-300 THEN LINEU9 
9, 166)-(252, 178) , 1 , BF : INTER VAL OFF 
730 DRAW"BM199, 10" :PRINT#1 , "VIDAS" 
740 DRAWBM200 , 10" : PRINT#1 , "VIDAS" 
750 DRAW"BM207,35":PRINT#1,VI 
760 DRAW"BM199,74" :PRINT#1, "FUEL" 
770 DRAWBM200 , 74" : PRINT#1 , "FUEL" 
780 DRAW"BM199.99" : PRINT#1.F 
790 DRAW"BM198.141" : PRINT#1."V. K/ 
H" 

800 DRAW"BM199.141":PRINT#1."V. K/ 



51, 



870 ' ACELERACION CON STRIG 



920 L-L+10:IF L>190 THEN L-0 

930 IF R-1000 THEN 2030 ' VICTORIA 

940 IF VO300 THEN V-V+2 

950 P-P+(V/10) :W-W+(V/10) : J-J+(V/1 

0) 

960 RETURN 



1000 ' BUCLE PRINCIPAL 
1010 • 
1020 ' 
1030 ' 
1040 1 

1050 INTERVAL ON: SPRITE ON- 
1060 S-STICK(Z) 

1070 U$-INKEY$:IF U$-" "THEN1090 
1080 IF ASC(U$)-24 THEN 1890 
1090 ON S GOSUB 490.490.530.530.49 
0.550.550,490 

100 IF STRIG (Z) — 1 THEN R-R+l:GOS 
UB 920 

lliO IF STRIG (Z)O-l AND V>0 THEN 
GOSUB 700 

1120 IF V->300 1HENV-300 

1130 IF F-10 THEN BEEP 

1140 IF F<-0 THEN 1890 

1150 IF X.<74 OR X>H5 THEN GOSUB 1 

660 

60 IF R-100 THEN KM-10: GOSUB 319 
0 ' C . BORDES PANT 

1170 IF R-200 THEN KM-20:GOSUB 324 
0 

1180 IF R-300 THEN KM-30: GOSUB 329 
0 

1190 IF R-400 THEN KM-40: GOSUB 334 
0 

1200 IF R-500 THEN KM- 50 : GOSUB 339 
0 : VI-VI+1 : F-F+150 : BEEP : PLAY"vl5o6b 
60" :GOSUB680 

210 IF R-600 THEN KM-60:GOSUB 319 
220 IF R-700 THEN KM-70: GOSUB 324 

1230 IF R-800 THEN KM-80: GOSUB 329 
240 IF R-900 THEN KM" 9 0 : GOSUB 334 

1250 




1260 IF P>200 THEN P— 1 0 :T-INT(RND 
(1) *72)+76:B-INT(RND(l) *12)+2 
1270 IF T<77 THEN T-77 
280 IF T>108 THEN T-108 



-I0:Q-INT(RND 



290 

300 IF W>200 THEN li- 
li ) *72) +76 : G-INT (RND( 1 , 
.310 IF Q<77 THEN Q-77 

1320 IF Q>108 THEN Q-108 

1330 

1340 IF J>200 THEN J— 1 0 : K-INT (RND 
(l)*72)+76:H-INT(RND(l)*12)+2 
1350 IF K<77 THEN K-77 
1360 IF K>108 THEN K-108 
1370 PUT SPRITE 0,(X,Y),l,O 
PUT SPRITE l,(T,P),B.O 
1390 PUT SPRITE 2.(Q,W),G 0 
1400 PUT SPRITE 3,(K.J),H,0 
1410 PUT SPRITE 4, (62, L), 15,1 
1420 PUT SPRITE 5, (62.L+45) , 15 1 
1430 PUT SPRITE 6, (62.L+90) ,15.1 
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1440 PUT SPRITE 7, (62, L+135) , 15 . 1 

1450 PUT SPRITE 8 , ( 62 , L+175 ) , 1 5 . 1 

1460 PUT SPRITE 9 , ( 62 . L+220 ) . 15 . 1 

1470 PUT SPRITE 10, (118. L). 15.1 

1480 PUT SPRITE 1 1 , ( 1 18. L+45) , 15 , 1 

1490 PUT SPRITE 12 . ( 118.L+90) . 1 5. 1 

1500 PUT SPRITE 13 . ( 1 1 8 . L+135 ) , 15 , 

1510 PUT SPRITE 14, (118.L+175) , 15. 

1520 PUT SPRITE 15 , ( 1 1 8 , L+220 ) , 1 5 , 
1 

1530 IF V<50 THEN VO-50 

1540 IF V>100 THEN VO-5ELSE VO-90 

1550 SOUND5.15:SOUND7,VO:SOUND10,1 




1620 ' 
1630 ' 
1640 • 
1650 ' 

1660 SPPTTF OFF.-INTERVAL OFF 
1670 STRTO (Z ) OFF 
1680 RFFP 

'•■90 pi.F- SPRTTF 0,(X,Y),1,2 

1-700 SOUND0 . 0 : SOUNO I , 5 • SOUNP2 . 0 : SO 

UNP3 ,n. <5f.| INP4 , 255 • SOI WtW 1 5 • SOI.W 

6.30- SOI INP7 . 0 : SOI INP8 ,16: SOI INDO , 1 6 i 

fOlwni 0 . J 6 : =IOUNP1 1 , 0:SOUNr>1 2 . 5 • SOU 

ND) 3,0: SOtlNDl 2.56: SOI INDI 3 . 0 

1710 FOO 11-1 TO 2500: NF YT : BFFP • BE 

FP 

17?n T F VT-0 THFN 1R°0 
1730 VT-VI-3 :V-1 :GOSUB 680 
f?40 PUT or^PTTF 0.(0.0), 0,2 



1770 PUT SPRTTF 2AQM)-.G, 

1780 pirr SPPTTF 3. (K.J) .(?, 

1790 GOSUB 2920 '3-2-1-0 
1800 PPTI.IPN 



.870 ' 

8O0 INTERVA1 OFF 

POO BFFP : POR 'Vi -1 TO oooo-NFVT 

910 SCREFN! :KEY OFF 

920 l,OCATE10,ll :PRJNT"GAME OVER" 

930 PI.AVV1 "i 1 04 BFEPFEFFBEFB A A A A . 
).F. F.G A.B.PDPP A" . "V15T.806BFKBFE 
TBFFBAA A P.E.F.G. A.B.PDPP. .B" 

Q4fl TF PLAYO ) THFN 1 Q40 

950 ROTO 4280 ' FINALIZAR 



2010 ■ 

^030 INTFPUA!. OFF • SPPTTF OFF 
2040 STRT.G(0)OFF:BEEP 
•5050 P'.AY"V¡51 :Í406FGP FOP OPF ED D 
E . EP . DEA'" . AO . AC . AC" . "V13L6305FGD . F 
rr> GPF PP.PP.FP PFír AO A<"" 



2060 FOR Gl-0 TO 5000:NEXT 
20?0 301 f«ni 0, 1 "5 - ?01.INT>0 . 15: FOR 
TO 200: SO' INDO , II : S0UND1 , II : 90 

r t i mrr 

2080 FOR WW-Y TO -30 STEP -4 
2090 PUT SPRITE 0,(X,WW),1.0 
"■100 NEXT WW:BEEP 
!110 SCREENO : SCREEN2 , 2 : VDP ( 1 ) - 
!120 PLAY"V15L64O5s8ml500EAEAEAFAF 
AFADADADAEAEAEAFAFAFAFADADADADA . FG 
FGFGFGFGECECECECECEC" . "V1505I.16T25 
OEAEAEAEAEAEAEAEAE AFAFAFADA " 



2150 FOR QQ-10 TO 255 
2160 LINE(QQ,0)-(QQ,70) . 1 : NEXT 
2170 FOR QQ-0 TO 70 STEP 8 
2180 LINE(10,QQ)-(255,QQ) , 1 : NEXT 
2190 LINE(10.65}-(255.73) ,10.BF 
2200 LINE(160,191 ) - ( 1 76 , 1 01 ) , 6 . BF 
Í210 r>RAW"bm160 
18192" 

2220 DRAW"bml60, 100r55u59d59e1 7 U 60 

2230 PATNT(170.9fi) .4 
2240 PAINT(225,85) .4 
2?"50 PAINT(170,24) .4 
2260 LINE(160.99)-(176,80) 
2270 LTNE ( 215 , 300)-(215.4] ) , 1 :LJNE 
U20,41)-(215,41) .1 :LINE(215.41)-( 
232,25) , 1 

2280 I.INE(152.56)-Í183.66) . \ , BF 
2290 DRAW"BM156.58" :PRINT#1, "F-IN" 
2^00 DRAW'BMl 06.110": PRINT#1 . "100 



KM" 



!33 0 PRAWBM10' 



KM" 



.110' 



•PRTNT#1 
PRINT#1 . 



"100 



TIN" 



) DRAW'BMl 57, 58" 
2330 VDP(l)-226 
,-•340 RFSTORF ■ ínq:iB 44^,0 
2350 FOR JJ-190 TO 80 STEP -1 
"360 PUT SPRTTFO , (161 , J J ) . 1 , O 
2370 FOR G1-1T070 : NEXTG 1 : NEXT ,U 
"380 PUT SPRTTEO, (0.0) , 0,0 
¡90 LINEU60, 100)-(176,81) , 14, BF 
100 FOR ,TJ=81 TO 99 STEP 2 
¡10 LINE(160. JJ)-(176,JJ) , 1 : NEXT 
¡20 PT.AY"V] 5O5T.8T100S8M1000DFG.DF 
B . DFG . DFB . EBP . EBD . EBD . FE . FE . FE . FEB 
AC.BAC.BAC" 

2430 IF PLAY(l) THEN 2430 
2440 COLOR 15, 1 , 1 : CI.S 
2450 LINE(10,0)-(255,191) ,7,B 

, TROLE(45,70) ,6,4, , , .5 
2470 CIRCLE(68,70) ,6,4, , , .5 
2480 PSET(45,70) , 15 
2490 PSET(68,70) , 15 
2500 CIRCLE(57,76) ,35,6, , ,3/2 
2510 DRAW"BM56,70C6D3GDFGDFGDFGDGD| 

2520 DRAW"BM60.78C6D2FD3F" 



Test de listados ■ 



30 - 58 610 58 1190 
40 - 58 620 - 58 1200 
50 - 58 630 - 58 1210 
60 - 58 640 
70 - 58 650 
80 - 58 660 
90 - 58 670 
100 - 58 680 
110 - 58 690 
120 - 58 700 
130 - 58 710 
140 - 58 720 
730 



-176 1750 - 
- 94 1760 - 
-255 1770 - _ 
-184 1780 -124 
69 1790 ■ 



■ 58 1230 
• 58 1240 

■ 58 1250 
■210 1260 

■ 58 1270 
-190 1280 

■ 58 1290 
•229 1300 
-168 1310 
-151 1320 



-142 
58 



- 58 740 

- 58 750 -137 1330 

- 15 760 
-169 770 

- 22 780 



-103 1340 



240 -221 820 
250 -216 830 
260 - 9 840 
270 -114 850 
280 -121 860 
290 - 58 870 
300 - 84 880 
310 -224 890 
320 - 58 900 
330 - 72 910 
340 -152 920 
350 -177 930 
360 - 72 940 
370 - 50 950 
380 -239 96.0 
390 - 58 970 
400 - 58 980 
410 - 58 990 
420 - 581000 
430 - 581010 
440 - 58.1020 
450 - 581030 
460 - 581040 
470 - 581050 
480 - 581060 
490 -1521070 
500 - 501080 
510 -1421090 
520 - 583 100 
530 - 721110 
540 - 58H20 
550 - 73 1130 
560 - 581140 
570 - 581150 



1350 

• 68 1360 
-171 1370 
-172 1380 
-126 1390 
142 1400 
- 58 1410 

- 58 1420 

- 56 1430 

- 58 1440 

- 58 1450 

- 58 1460 

- 58 1470 

- 58 1480 

- 58 1490 
-3 31 1500 
-234 1510 
-129 1520 

- 18 15.30 
-142 1540 

- 58 1550 

- 58 1560 

- 58 í 570 

- 58 1580 

- 58 1590 

- 58 1 600 

- 58 1610 

- 58 1620 
-217 1630 
-142 1640 
-243 1650 

- 80 1660 

- 61 1670 
-171 1680 

- 56 1690 
-111 1700 
-115 1710 

- IB 1720 



-229 1 
-102 1 

- 39 1820 - 

- 58 1830 - 
-710 1840 - 
-164 1850 - 
-224 1860 - 

- 58 1870 - 
-223 1880 - 
-158 1890 - 
-2181900 - 

- 58 1910 - 
-195 1920 - 
-146 1930 - 
-206 1940 - 

- 96 1950 - 
-132 1960 - 
-1421970 - ^„ 
-125 1980 - 58 

- 89 1990 - 58 
-135 2000 - " 
-181 2010 - ^ 
-227 2020 - 58 

- 12 2030 -133 

- 58 2040 -233 
-149 2050 - 55 
-195 2060 - 71 
-241 2070 -175 

- 31 2080 - 83 

- 72 2090 -181 
-118 2100 - 43 
-193 2110 - 60 
-158 2120 -142 
-167 2130 - 43 
-1812140 -2" 

- 58 2150 - o 

- 58 2160 - 64 

- 58 2170 - 71 

- 582180 - 

- 58 2190 - „ 

- 58 2200 - 66 

- 582210 

- 582220 - 

- 58 2230 -164 
-1332240 - 

- 56 2250 • 
-1922260 - 

- 98 2270 -144 
-1372280 
-1102290 - 
-1232300 

- 652310 -128 
-210^32- 



2320 - 20 1 



39 



Test de listados ■ 



2330 - 11 
2340 -212 
2350 -234 
2360 -243 
2370 -175 
2380 -208 
2390 -217 
2400 -159 
2410 - 44 
2420 -136 
2430 - 30 
2440 - 48 
2450 - 83 
2460 -127 
2470 -150 
2480 - 26 
2490 - 49 



2690 - 
2700 - 
27 10 - 
2720 - 
2730 - 
2740 - 
2750 - 
2760 - 
2770 - 
2780 - 
2790 - 
2800 - 
2810 - 
2820 - 
2830 - 
2840 - 
2850 - 



3050 - 59 
3060 - 52 
3070 - 81 
3080 - 5S 
3090 - 52 
3100 - 92 
3110 -142 
3120 - 58 
3130 - 58 
3140 - 58 
3150 - 58 
3160 - 58 
3170 - 
3180 - 58 
3190 -224 
3200 - 
3210 -124 




2500 - 28 
2510 - 8 
2520 -132 
2530 - 8 
2540 - 74 
2550 - 84 
2560 - 31 
2570 - 32 
2580 -200 
2590 -201 
2600 - 31 
2610 - 32 



2620 - 
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2630 - 47 
2640 -141 
2650 -133 
2660 -101 
2670 -147 



2860 - 
2870 - 
2880 - 
2890 - 
2900 - 
2910 - 
2920 - 
2930 - 
2940 - 
2950 - 
2960 - 
2970 - 
2980 - 
2990 - 
3000 - 
3010 - 
3020 - 
3030 - 



3250 - 
3260 - 
3270 - 
3280 
3290 
3300 
3310 
3320 - 
3330 - 
3340 - 
3350 - 
3360 - 
3370 - 
3380 - 
3390 - 



' :PRINT#1,' 



2530 DRAWBM50 , 99C6F2RFR8RERE3" 
2540 DRAW'BMl 7,15": C0L0R4 : PRINT#1 , 
"UN PROGRAMA DE DANIEL COLOMER" 
2550 DRAW"BM18,15":PRINT#1,"UN PRO 
GRAMA DE DANIEL COLOMER ": COLOR 15 
2560 DRAW"BM107,40":PRINT#l","i ENH 
ORABUENA ! " 

2570 DRAW"BM108,40":PRINT#1.' 
ORABUENA ! " 
2580 DRAW"BM91,60":PRINT#1."HAS LL 
EGADO AL FINAL" 

2590 DRAW"BM92.60":PRINT#1,"HAS I 
EGADO AL FINAL" 
2600 DRAW"BM95,80" ¡ 
A AVENTURA" 

2610 DRAWBM96 , 80" i PRTNT#1 . "DE EST 

AVENTURA " 
„620 DRAWBM20 , 130 " ; PRINTtl , "ERES 
TODO UN CAMPEON " 

D DRAWBM2 1 .130" :PRINT#1 . "ERES 
TODO UN CAMPEON " 

2640 DRAW'BMl 9.160": PRINT#1 , "ENCAN 
TADO DE HABERTE CONOCIDO." 

1 PRAW"BM20 , 1 60" :PRTNT#1 . "ENCAN 
TADO DF HABERTE CONOCIDO" 

■> pt v/-v i i r-,T\ ?.pM"nn("j*-tv-BnAr» 
*\» -WAF» - B^F/ii: CísC* ?-« ^rBzotifijwrr. 
CACACA .FFB.FFB. 
dafafafrtfgd . " . "VI "¡> «4SBM1 00OO6B 
ACDGCBcb.-bcbcbdrtdñdafadafrigb.geg.-g 
e . cbcbcbcbcbcb . gdgdgdgdgdgd . cuesca 
ra .efb.efb.efb. ffb g«.g«» y*g«gegeg 
eda.da.ge.dab" 

-670 FOR 01 -1 TO U000-NFXT:RUN 
2680 1 

n : RFM- 

2700 ' 

2710 ■ DTBU.JO PATAIJ.A 
2720 ' 
2730 ' 
"■740 ' 



¡■780 LINE(190.( 



I.TNEd 
)00 LINEC 



?55, 191; 
>54.190) 



■ 4.BF 
-(255 , 129) ,4,BF 
2820 LTNE(69,0)-(77, 191) , 6 , BF 
":ñ^0 LINF ' 1 26 , 0 ) - ( 1 33 , 1 91 ) , 6 , BF 
:840 FOR t.I-3 TO 187 3TEP 14 
2850 T.TNE (101 , 1 J ) - ( 1 0 1 , LI+6 ) . 1 , BF 
2B60 NEXT 

2870 DRAW'BMl 6. 170" :PRINT#1 ."00 



2880 DRAW."BM16, [ 



' :PRINT#1 . 



'920 I.TNE(95,90)-(105, 10: 



2930 PRAW"BM98,93":PRINT#1 . '"5" 

2940 FOR Gl-1 TO 900.-NEXT' 

2950 LIKE(95.90)-(105..102) . 1 . BF 

2960 DRAW"BM98,93" :PRINT#1. "4" 

2970 FOR Gl-1 TO 900: NEXT 

2980 LINE(95, 90)-(L05, 102) , l.BF 

2990 DRAWBM98 , 93" : PRINT#1 , "3" 

3000 FOR Gl-1 TO 900. -NEXT 

3010 LINE (95,90)— (1 05, 102),], BF 

3020 DRAWBM98 , 93 " :PRINT#1, "2" 

3030 FOR Gl-1 TO 900:NEXT 

3040 LINE(95, 90)-(105, 102) . l.BF 

3050 DRAW"BM98,93" : PRINT#1 , "1" 

3060 FOR Gl-1 TO 900:NEXT 

3070 LINE(95,90)-(105, 102) .l.BF 

3080 DRAW"BM98.93":PRINT#1."0" 

3090 FOR- Gl-1 TO 900:NEXT 

3100 LINE(9*5,90)-(105.102) .14.BF 

3110 RETURN 

3120 ' 

3130 ' 

3140 ' 

3150 ' CAMBIAR LOS BORDES 
3160 ' 
3170 ' 
3180 1 

3190 I.INE(10.0)-(69,191) ,10,BF 
3200 LINE(134.0)-<183.191) ,10,BF 
3210 DRAW'BMl 6 , 170 " : PRINT#1 , KM"Km" 
3220 DRAWBM16 . 171 " ¡ PRINT#1 , KM"Km" 

3230 RFTUPN 

3240 LINE ( 10 , O ) - ( 69 , 1 9 1 ) , 4 , BF 
3250 UNE (134,0) -(183. 191) ,4,BF 
3260 DRAW'BMl 6 , 170" : PRINT#1 , KM"Km" 
^270 DRAW'BMl 6,171 " : PRTNT#1 , KM"Kin" 
3280 RETURN 

?290 T,TNE(10.0)-(69,19] ) ,13,BF 
3300 LINE(134.0)-(183,19Í) ,13.BF 
331 n DRAW'BMl 6 .170": PRINT#1 , KM"Km" 
3320 DRAWBM16, 171" :PRINT#1 . KM "Km" 
RFTURN 

3340 LINE(10,0)-(69. 191) , 7 , BF 
3350 L.TNE(134.0)-(1R3.191) . 7 , BF 
3360 DP.AW"BM16 . 171 " .- PRTNT#1 , KM"Km" 
3370 DRAW'BMl 6, 172" :PRINT#1 . KM"Km" 
3380 RETURN 

3390 I.TNE(in,0)-(69.lO1 ) , 8 , BF 
3400 LTNE (134,0)-(183,191),8, BF 
3410 DRAW'BMl 6. 171 " :PRTNT#1 KM"Km" 
3420 DRAW'BMl 6 , 1 72 " : PRTNT#1 , KM"Km" 
3430 RFTURN 
3440 ' 
3450 ' 
3460 ' 

3470 ' PRESENTACION 
3480 ' 
3490 ' 
3500 ' 

351.0 NN-210 

3520 FOP. J.l-NN TO 72 3TEP -5 
3530 PUT SPRITE 0. (108. J.T) . 15.3 



3540 PUT SPRITE 1 , ( 1 24, JJ) , 15 ,4 
35 c :n NEXT 

3560 I.TNF(9Í ,98)-(156,9ñ) 1 fi 

3570 PRESETI94. 103) : PRINT#1 , "SOFTW 

ARE" 

3580 PRESET(95. 1.04) :PRINT#1 ."SOFTW 
ARE" 

3590 TF INKEY$-" "THEN 3600 EL SE F 
OR Gl-0 TO 5000: NEXT 
3600 PUT SPRITE 0 , ( 255 , 0 ) , 0 . 3 
3610 PUT SPRITE 1 . ( 255 , 191 ) , 0 , 4 
3620 VDPíl )-178:C0L0R,l,l:CLS 
3630 Z$-"C6L15U50R15D8L10D34R10D8" 
3640 PSET(48,60) :DRAW Z$:PAINT(46, 
58) .6 

3650 Z1$-"C2L5HUHUHUHUHUHUHUHUHUHD 

1 9L5U50R20D23L1 3FDFDFDFDFDFDFDFDFD 

FDFDFDFDF" : Z2$-"C2U6R6D6L6" 

3660 PSET (83,60) : DRAW Z1$:PSET(70, 

25):DRAW Z2$:PAINT(81.58) ,2 

3670 Z3$-"C13L7U10L7D10L7U50R22D50 

":Z4$-"C13U11R6D11L6" 

3680 PSET (118, 60) :DRAW Z3$:PSET(10 

5,37):DRAW Z4$ : PAINT( 1 16 , 58) , 13 

3690 DRAW"BM153.60C4L20EUEUEUEUEUE 

UEUEUEUEUEUEUEUElIEiraJEUEUElJEUEUL22 

E7R27GDGDGDGDGDGDGDGDGDGDGDGDGDGDG 

DGDGDGDGDGDGDR20G 7L10":PAINT(145,5 



37Ó0 DRAW"BM193.60C10L5U27HUHUHUHU 




HUHUH1 JHUHUHUHUR7FDFDFDFDFDFDFDFDFD 
FDFEUElffiUEUEUEUEUEUEUEUEUEUElffi70GD 
GDGDGDGDGDGDGDGDGDGDGDGDGDGD24L1 O ' 
:PAINT(193,57),10 

3710 PSET (80 ,135) : DRAW Z1$:PSET(67 
,100):DRAW Z2$:PAINT(78,133) ,2 
3720 DRAWBM115, 135C9L20U50R20D50" 
: DRAW'BMl 00 , 1 25U30R1 0D30L10" : PAINT 
(113, 133) .9 

3730 PSET( 1 50 , 135) : DRAW Z3$:PSET(1 
37,113) : DRAW Z4$ : PAINT ( 145 , 132) , 13 
3740 DRAW'BMl 65. 1 35C5U50R15FDFDFDF 
DFDFDFDFD2 0GDGDGDGDGDGDGDGL1 5 " : DRA 
W"BM173,105R3DFDFD5GDGDGI.3U14":PAT 
NT ('166, 133) ,5 

3750 DRAW'BMl 5. 180": COLOR 15:PRINT 
#1,". DANIEL COLOMER (C) 1989" 
3760 DRAW'BMl 6 , 1 80" : PRINT#1 , "• 
IEL COLOMER (C) 1989" 
3770 VDP(l)-226 
3780 IF STRIG(O)— 1 THEN 3810 
3790 PLAY"V1 505L8T] 00S8M1000DFG . DF 
B . DFG . DFB . EBD . EBD . EBD . FE . FE . FE . FEB 
AC.BAC.BAC" 

3800 IF PLAY(l) THEN 3800 
3810 CLS:DRAW"BM70, 10" :PRINT#1 , "-E 
LIGE OPCION-" 
3820 

3830 DRAWBM71 ,10": PRINT#1 , "-ELIGE 
OPCION-" 

3840 DRAWBM5 1,70" : COLOR2 : PRINT#1 . 

3850 DRAW"BM52,70":PRINT#1,"1> EMP 
EZAR YA ! " 

3860 DRAWBM51 . 90 " : C0L0R4 : PRTNT#1 , 
"2> INSTRUCCIONES" 

3870 DRAW"BM52,90":PRINT#1 ,"2> INñ 
TRUCC IONES" 

3880 DRAW"BM5 1 , 1 10 " : COLOR6 : PRINT#1 

"3> VOLVER A LA PORTADA" 
3890 DRAW"BM52.110'":PRINT#1,"3> VO 
LVER A LA PORTADA" 
3900 DRAWBM51 ,130" : COLOR 10:PRINT 
#1."4> VOLVER AL BASIC" 
3910 DRAW"BM52 , 1 30'-' :PRINT#1 , "4Í 
LVER AL BASIC" 
3920 DRAWBM51 ,150": COLOR 7:PRINT# 
1,"5> JUGAR CON JOYSTICK" 
3930 DRAW"BM52,150":PRINT#1,"5> JU 
GAR CON JOYSTICK" 
3940 V$-INKEY$- 
3950 ON VAL(V$) GOTO 2750,4060,397 
0.3980,3990 
3960 GOTO 3940 
3970 RUN ' VOLVER PORTADA 
3980 GOTO4830 ' VOLVER BASIC 
3990 SCREEN3 : COLOR2 : DRAW"bm70 . 80 " : 
PRINT#1, "O.K.":FOR G1-OT0900 : NEXT : 
Z-l : SCREEN2 : GOTO 3810 ' JUG . JOYSTICK 
4000 ' 

4010 ' 



4020 ' 

4030 ' INSTRUCCIONES 
4040 ' 
4050 ' 

4060 SCREENO : COLOR 10,1,1: KEY OFF:W 
IDTH40:CLS 

4070 LOCATE9,0:PRINT"- INSTRUCCION 



CATE 1.2:PRINT"D-COLOMER ha 
el nuevo TURBO K-99 (black 
Tu lo manejas para la gran 

de los 100 KM, pero en esta 
rera vale todo. . .irán a por 
asi que demuéstrales que t 
el mejor. Adelántalos y ni 



4090 LOCATE 33 . 7 : PRINT"zes . " 
4100 LOCATEl,9:PRINT"Tienes cin 
idas, pero puedes conse- guir 
a a los 50 km. " 

110 LOCATE 1.11 :PRINT"Puedes a 

300 km/h '( i el motor puede 



■xp!o 



I po-C 



4130 LOCATE 1 , 17 : PRINT"Pul sa < SELE 

r del programa . " 
4140 LOCATE 1,19: PRINT" Aceleras o 
space> y frenas con el cursi 

4150'lOCATE 0,22:PRINT". Pulsa < ¡ 

pace > para volver a opción" 

4160 PLAY"vl5116o5deb.ga.ga.deb.ga 

4170 IN$-INKEY$ 

80 IF IN$<>" '" THEN 4170 
4190 SCREEN3:DRAW"BM15,60":PRINT#1 
SUERTE ! " 

4200 FOR Gl-0 TO 1000: NEXT : SCREEN2 

,210 GOTO 3810 
4220 ' 
1230 ' 
4240 ' 
4250 1 
4260 1 
4270 ' 

4280 SCREENO : COLOR15 , 1 :MF 
LOCATE2,7:PRINT" . . .C 
. i VENGA ESE ANIMO ! 
4300 LOCATE1 , 12 i PRINT"HAS RECORRID 

R/10" KILOMETROS" 
4310 LOCATEl,15:PRINT"TE QUEDABA " 
F" DE FUEL" 

4320 L0CATE1,18:PRINT"TE QUEDABAN 
VIDAS" 

4330 LOCATEl,21:PRINT'TVAS A UNA V 

ELOCIDAD DE "V" K/H" 

4340 FOR Gl-1 TO 15000 : NEXT: RUN 

4350 ' 

4360 ' 



FINALIZACION 
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4370 ' 

4380 ' DEFINICION DE SPRITES 

4390 ' 

4400 ' 

4410 ' 

4420 1 

4430 ' 

4440 ' 

4450 FOR U-0 TO 4 
4460 A$-"" 
4470 FOR 1-1 TO 32 
4480 RFAD A : A$=A$+CHR$ ( A ) 
4490 NFXT I 
4500 SPRITE$(H)-A$ 
4510 NEXT U 
4520 RETURN 
4530 1 
4540 
4550 
4560 1 
4570 1 
4580 
4590 
4600 
4610 
4620 



i-y-COI.OMFR 



4630 
}640 1 

4650 DATA 0.7.15.13.63.63.63.1 
12, 12.63.63,63. 15,7,0,224.240, 144 
'252 , 252 , 252 . 240 . 48 , 48 48 , 252 , 252 . 

252,240,224 

4660 1 

4670 

4680 1 

4690 DATA 0.0.0.0.0,0.1 
0.0.0.0, 255 . -!!■)■; . 255 , 25' 
255.2 C -5.T55.- 



4700 
4710 
4720 



corhe-choqne 



14.14,7,7.3.3.5! 
92.224,208.240,248 
48. 48. 48, 96'. 9fi. 248 



le 



DA 



4770 DATA 240.248,252.206.199.1? 
193, I 93, 193, 193, 195, 199, 206,252,24 
" 210, 0,0,0, 15,31. 184. 176,176.176, 

1 . 191 ,63,48,46,48.48 
4780 ' 

3 ' letra- NT 

1 DATA 0,0.0.140,204.238,111.11 
1,111,239.237.236,108.108.108,108, 
2.0. 108,108.108,108,108,108,236 
5.236,236.108,108,108 



4830 PLAY"V15L64o6AC40" : COLORI 5, 1 
1 : CLS : SCREENO : KEY OTF : WIDTH40 : STOP 

OFF 
4840 END 



Test de listados ■ 



3410 -125 
3420 -126 
3430 -142 
3440 - 58 
3450 - 58 
3460 - 58 
3470 - 58 
3480 - 58 
3490 - 58 
3500 - 58 
3510 -108 
3520 -181 
3530 -205 
3540 -223 
3550 -131 
3560 -220 
3570 -254 
3580 - 0 
3590 -210 
.3600 -208 
3610 -143 
3620 - 39 
3630 - 81 
3640 -126 



3650 



132 



3660 -143 
3670 -181 
3680 - 17 
3690 - 80 
3700 - 63 
3710 -103 
3720 -221 
3730 - 79 
3740 - 37 
3750 -103 
3760 - 83 
3770 - 11 
3780 - 90 
3790 -136 
3800 -125 
3810 - 86 
3820 - 58 
3830 -126 
3840 - 66 
3850 - 57 
3860 - 97 
3870 - 86 
3880 - 91 



3900 
3910 
3920 
3930 
3940 
3950 
3960 
3970 
3980 
3990 
4000 
4010 
4020 



4070 
4 080 
4090 



4170 
4180 
4190 
4200 
4210 
4220 
4230 
4240 
4250 
4260 
4270 
4280 
4290 
4300 



4340 
4350 
4360 
4370 



118 


4390 


- 58 


103 


4400 


- 58 


116 


4410 


- 58 


102 


4420 


- 58 


85 


4430 


- 58 


246 


4440 


- 58 


10 


4450 


-197 


-196 


4460 


-152 


193 


4470 


-180 


- 94 


4480 


-211 


- 58 


4490 


-204 


- 58 


4500 


-229 


58 


4510 


-216 


- 58 


4520 


-142 


- 58 


4530 


- 58 


- 58 


4540 


- 58 


61 


4550 


- 58 


-129 


4560 


- 58 


- 33 


4570 


- 58 


-219 


4580 


- 58 


254 


4590 


- 58 


-í 94 


4600 


- 58 


47 


4610 


- 58 


-255 


4620 


- 58 


36 


4630 


- 58 


- 43 


4640 


- 58 


72 


4650 


- 64 


-150 


4660 


- 58 


170 


4670 - 58 


-178 


4680 


- 58 


169 


4690 


-152 


-135 


4700 


- 58 




4710 


- 58 


- 58 


4720 


- 58 


- 58 


4730 


- 64 


- 58 


4740 


- 58 


- 58 


4750 


- 58 


- 58 


4760 


- 58 


- 70 


4770 


-186 


- 56 


4780 


- 58 


-113 


4790 


- 58 




4800 


- 58 


122 


4810 


-178 


- 17 


4820 


- 58 


- 67 


4830 


- 53 


- 58 


4840 


-129 



3890-78 4380-58 4932. 
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ENSAMBLADOR. 



■Por Ramón Sala. 



ADENTRARSE 

DE FORMA SENCILLA 

EN EL ENSAMBLADOR 



Desde hace mucho tiempo teníamos la 
sana intención de dedicar una sección 
de esta revista a desarrollar un peque- 
ño curso de Ensamblador (el lenguaje 
rey por excelencia) en el que partiendo 
de cero y a lo largo de algunos meses, 
nos fuésemos adentrando en el fasci- 
nante mundo del código máquina. 



Personalmente, no sólo 
nada contra el BASIC 
pienso que está muy bien, dada 
~ ! ncillez, para introducirse 




ENSAMBLADOR. 



ofrecer la solución a este problema. El 
brillante resultado ha sicío el progra- 



e innumerables prestaciones, 
vemos a decir que es el mejor 
ica ha existido para MSX. 



este primer artículo, hacei 
cripción de algunas de si 
aplicaciones que, sin duda 



Por primera vez en el mercado de 
los MSX, nos hallamos ante un EN- 
SAMBLADOR-DESENSAMBLA- 



Por J.C. Roldán 




CUADRO DE CLAVES DE ACCESO: 



PANTALLA: 
PANTALLA: 
PANTALLA: 
PANTALLA: 
PANTALLA: 
PANTALLA: 
PANTALLA: 
PANTALLA: 
PANTALLA: 
PANTALLA: 
PANTALLA: 
PANTALLA: 



2 PASSWORD: 

3 PASSWORD: 

4 PASSWORD: 

5 PASSWORD: 

6 PASSWORD: 

7 PASSWORD: 

8 PASSWORD: 

9 PASSWORD: 

10 PASSWORD: 

11 PASSWORD: 

12 PASSWORD: 

13 PASSWORD: 

14 PASSWORD: 



IAIABKBK 
AMAMEGFO 
ACABFBFE 
AGAKHHIH 
AEAMCHDH 
GAC " 
AEACB1 
IBCAHDBE 
ICIAACAE 
AEBGEHGB 
AMDAAGEC 
EBKAELCM 
IHABBJKB 
" -»MCGHC 




PANTALLA: 
PANTALLA: 
PANTALLA: 
PANTALLA: 
PANTALLA: 
PANTALLA: 
PANTALLA: 
PANTALLA: 
PANTALLA: 
PANTALLA: 
PANTALLA: 
PANTALLA: 
PANTALLA: 
PANTALLA: 



17 PASSWORD: 

18 PASSWORD: 

19 PASSWORD: 

20 PASSWORD: 

21 PASSWORD: 

22 PASSWORD: 

23 PASSWORD: 

24 PASSWORD: 

25 PASSWORD: 

26 PASSWORD: 

27 PASSWORD: 

28 PASSWORD: 

29 PASSWC 

31 P/ 



FBBAFMLN 
BEEIAOGK [ 
BDADEAFG L 
CBEABEHF [ 
AMFEFGLG I 
ALACHJIG 
ILICGJHG 
CBIAAMKN [ 
IGEAGCCI 
BANACNANl 
BINIAFPF 
AHABECEK I 



TRUCOS Y POKES Por j. C. Roldan 



: 32 PASSWORD: 
: 33 PASSWORD: 
: 34 PASSWORD: 
: 35 PASSWORD: 
: 36 PASSWORD: 
: 37 PASSWORD: 
: 38 PASSWORD: 
: 39 PASSWORD: 
: 40 PASSWORD: 
: 41 PASSWORD: 
: 42 PASSWORD: 
: 43 PASSWORD: 
: 44 PASSWORD: 
: 45 PASSWORD: 
: 46 PASSWORD: 



ECAAGEKG 

CBAFHAJG 

AEEEGHKP 

AGEGCPHL 

AJABDKEE 

DCFACEKG 

AEEMEPJP 

BDIBHBAF 

BBEAENJO 

CJACHIKD 

CKACCAEM 

AGFGBPHL 

CMACHAJO 

AGFKEHKH 

BJHACNLG 



PANTALLA: 
PANTALLA: 
PANTALLA: 
PANTALLA: 
PANTALLA: 
PANTALLA: 
PANTALLA: 
PANTALLA: 
PANTALLA: 
PANTALLA: 
PANTALLA: 
PANTALLA: 
PANTALLA: 
PANTALLA: 



47 PASSWORD: 

48 PASSWORD: 

49 PASSWORD: 

50 PASSWORD: 

51 PASSWORD: 

52 PASSWORD: 

53 PASSWORD: 

54 PASSWORD: 

55 PASSWORD: 

56 PASSWORD: 

57 PASSWORD: 

58 PASSWORD: 

59 PASSWORD: 

60 PASSWORD: 



BALMDGAC 
DAADBAED [ 
GGCADLMB I 
AMIBDKMH [ 
BBJICFMO 
EGIABLOS 
BJKIDNPO 
INIABCBP 
CDHAHMAP I 
AMOAFGEC \ 
EDJAEEBH 
AGHEBPJJ 
BJNIHNGO 
AMPAAOAK I 



OSCAR SANCHEZ 
(BARCELONA) 
T1TANIC 



la segunda parte del programa. 
JOSE MARIA REVENTOS 
(BARCELONA) 
COLT 36 

■ talla Juees dri^ien'^ líevarX el 



: C/. Roca ¡ Batlle, 10-12-08023 

mal Ptas. 3.500 — 
•o Ptas 6.250.— 
eo USAS 50.— 

es MSX CLUB. NO SE ADMITE CONTRAREEMBOLSO. 



11 



DESCUBRE TU ORDENADOR 




LOS SECRETOS 
DEL MSX 



UN LIBRO PENSADO 
PARA TODOS LOS QUE 
QUIEREN INICIARSE 
DE VERDAD EN LA 
PROGRAMACION BASIC 



is numéricas. Series, tablas y ca- 
denas. Grabación de programas. 
Gestión de archivo y grabación de 
datos. Tratamiento de errores. Los 
gráficos del MSX. Los sonidos del 
MSX. Las interrupciones. Introduc- 
ción al lenguaje máquina. 



Alfabético. Canon a tres voces. 
Moon Germs. Bossa Nova. Blue 
Bossa. La Séptima de Beethoven. 
La Flauta Mágica de Mozart. Scrap- 
ple from the apple & Donna Lee. The 
entretainer. Teclee un número. Ca- 
lendario perpetuo. Modificación Ta- 
bla de colores SCREEN 1 . Rectán- 
gulos en 3-D. Juego de caracteres 
alfabéticos en todos los modos. Jue- 
o. Más grande más pe 



EL LIBRO QUE ESPERABAS YA 
ESTA A LA VENTA 

ENVIA HOY MISMO EL BOLETIN DE PEDIDO 



... Ciudad .. 



Este boletín me da derecho a recibir los secretos MSX en mi domicilio libre de gastos de envío o 
cualquier otro cargo. 

——i indicar en el sobre MANHATTAN TRANSFER. S.A. 

RESERVA «LOS SECRETOS DEL MSX» 
Roca i Batlle, 10-12 Bajos -08023 BARCELONA 



TRUCOS DEL PROGRAMADOR 




Los interesados en par- 
ticipar en esta sección, 
pueden enviar sus descu- 
brimientos en programa- 
ción a: 



MANHATTAN 
TRANSFER, S.A. 
Sección: Trucos del pro- 
gramador 

Roca i Battle, 10-12, bajos 
08023 Barcelona 



PRESENTACION 
DE UN 
PROGRAMA 
CON 

LINEAS REM 



ha h- U L°s bS u"e« ' REm" deben'eitar 
necesariamente al inicio del programa 



ción, ya que la rutina deja de funcio- 
nar cuando encuentra una línea cuya 
primera instrucción no es REM. 

2. - La instrucción REM puede 
presentarse en dos formatos. Si se 
emplea el formato REM, la variable B 
de la línea 1030 debe tomar el valor 1, 
y en la línea 1040 debemos comparar 
PEEK(R) con el valor 143. Si por el 
contrario se utiliza el formato "", B 
deber ser igual a 3 y PEEK(R) se ha 
de comparar con 58. 

3. - Si deseamos centrar el texto a 
imprimir en la pantalla, debemos 
utilizar la variable E de la línea 1030, 
dándole como valor el número de 



menta n r!os q REM '"dSe"'^ * siempre 



riable E. 

1 



001 REM = = = = = = = = = = = = = 

003 REM = RUTINA DE PRE- 

SENTACION DE = 

004 REM = PROGRAMAS = 

005 REM = MSX BASIC versión 

006 REM = 

007REM = = = = = = = = = = = = = 

SCREEN 0: KEY OFF: 
WIDTH 37: COLOR 4: 
P=&H8001: B=l: E=4 

S=PEEK (P)+256*PEEK 
P+l): R=P+4: IF PEEK (R) o 
i 43 THEN COLOR 15: GOTO 
ELSE L=0: PRINT SPC (E) 
D=R+B + L: PRINT CHR$ 
(PEEK (D)),: L=L + 1: IF PEEK 
(D + l) o 0 THEN 1050: ELSE 
P=S: PRINT: GOTO 1040 
1060 REM SIGUIENTE INSTRUC- 
CION DEL PROGRAMA 

José Huguet Mendizabal 



ESPIRALES 



10 REM 

20 REM ESPIRAL 
30 REM 

40 SCREEN 0: INPUT ", 



60 SCREEN 2: COLOR 15, 4, 4 
70 FOR N=0 TO 600 STEP .1 
80 PSET (SIN (N) s TIME/50 + 100, 
COS (N)*TIME/504-80), 15 



SIMULAR LA 

INSTRUCCION 

LIST 

Me he encontrado con algo que, : 
bien no es de gran utilidad, es bastar 

Se trata de simular la orden LIS' 

mente'con SAVE "CRT^** S ' mplt 

realizar listados parciales. 

Por otra parte he realizado u 

lo' Tn^inoJ^ara /ua'lquier frise. El 

5 SCREEN 0: WIDTH 37 
10 M$" Revista MSX-Club. Pul- 
sa una tecla.": REM 
23 ESPACIOS 

20 FOR A=l TO LEN (M$) 

30 LOCATE 5, 10: PRINT MID$ 

(M$, A, 20); 

40 FOR 1 = 1 TO 50: NEXT I 
50 IF INKEY$="" THEN NEXTA 
ELSE END 
60 GOTO 20 

En la variable M$ va contenida la 
frase para el scroll. Al final de la línea 
30, el n° 20 indica la cantidad de 




A TRAVES DE MSX-CLUB DE MAILING 



)ES ADQUIRIR JOYCARD DIGITAL YANjEN 



